home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / PC Basic / PCBASIC Stand alone version / PCBASIC Demo / PCBASICDemoR < prev    next >
Text File  |  1992-02-22  |  21KB  |  782 lines
  1. ;
  2. ; Resource File For PCDemo
  3. ;    McAssembly ( or direct compile) format
  4. ;
  5. ;    The PCBASIC Manual, $50,  describes the 
  6. ;         McAssembly Resource format
  7. ;
  8. ;           order from:
  9. ;    
  10. ;          Pterodactyl Software
  11. ;          c/o  Harland Harrison
  12. ;          200 Davey Glen Rd #416
  13. ;          Belmont CA  94002
  14. ;           (415) 591-5270
  15. ;
  16. ; some equates we'll need:
  17. ;
  18. chk        equ    $12    ;ascii for check mark character
  19. visible        equ    $FFFF    ;TRUE boolean
  20. invisible    equ    0    ;FALSE boolean
  21. nogoaway    equ    0    ;FALSE boolean
  22. goaway        equ    $FFFF    ;TRUE boolean
  23. button        equ    4    ;DITL BUTTON
  24. chkbox        equ    5    ;DITL CHECK BOX
  25. radio        equ    6    ;DITL RADIO BUTTON
  26. stattext    equ    8+128    ;DITL STATIC TEXT (DISABLED)
  27. editxtds    equ    16+128    ;EDIT TEXT DISABLED
  28. iconitem    equ    32    ICON in dialog box
  29. ;
  30. ; Signature of program
  31. ;
  32. [[ DEMO,0
  33.     TEXT    #"PCBASIC Demo  Version 2.0  January 3, 1992"
  34. ]]
  35.  
  36. ; Apple menu
  37.  
  38. $$ MENU,1,4            Menu ID 1
  39. 0,0,0                Placeholders
  40. $FFFFFFFB            enable mask - item 2 disabled
  41. "/$14"                menu title = apple char
  42. 2                two items in this menu
  43. ;                item 1:
  44. About PCBASIC Demo...              the menu item
  45. 0,0                  no icon, no keybd equivalent
  46. 0,0                  no marking char, text style = plain
  47. ;                item 2:
  48. --------------------          the menu item
  49. 0,0,0,0                  no icon, no keybd, no mark, plain text
  50.  
  51. ;
  52. ; Files menu
  53. ;
  54.  
  55. $$ MENU,302,4            Menu ID 302
  56. 0,0,0                Placeholders
  57. $FFFFFFFF            enable mask - none disabled
  58. Order                menu title
  59. 3                three items in this menu
  60. ;                item 1:
  61. "Send A Manual"            the menu item
  62. 1,0                  icon 257, no keybd equivalent
  63. 0,0                  no marking char, text style = plain
  64. ;                item 2:
  65. "Send Shareware"          the menu item
  66. 0,0                  no icon, no keybd equivalent
  67. 0,0                  no marking char, text style = plain
  68. ;                item 3:
  69. "Quit"
  70. 0,0                  no icon, no keybd equivalent
  71. 0,0                  no marking char, text style = plain
  72. ;                item 4:
  73.  
  74.  
  75. ; Edit menu
  76.  
  77. $$ MENU,301,4            Menu ID 301
  78. 0,0,0                Placeholders
  79. $FFFFFFFB            enable mask - 2nd disabled
  80. Edit                menu title
  81. 6                six items in this menu
  82. ;                item 1:
  83. "Undo"                    the menu item
  84. 0,0,0,0              no icon, no keybd equivalent     no marking char, text style = plain
  85. ;                item 2:
  86. "----------"              the menu item
  87. 0,0,0,0                  no icon, no keybd, no mark, plain text
  88. ;                item 3:
  89. "Cut"
  90. 0,'X',0,0              no icon, cmd X, no mark, plain text
  91. ;                item 4:
  92. "Copy"                  the menu item
  93. 0,'C',0,0              no icon, cmd C, no mark, plain text
  94. ;                item 5:
  95. "Paste"                  the menu item
  96. 0,'V',0,0              no icon, cmd V, no mark, plain text
  97. ;                item 6:
  98. "Clear"                  the menu item
  99. 0,0,0,0                   no icon, no keybd, no mark, plain text
  100.                   
  101.  
  102. ;  Help menu
  103.  
  104. $$ MENU,303,4            Menu ID 303
  105. 0,0,0                Placeholders
  106. $FFFFFFFF            enable mask - none disabled
  107. "Help"                menu title
  108. 4                four items in this menu
  109. ;                item 1:
  110. "Using the Demo"          the menu item
  111. 0,'H'                  no icon, keybd equivalent is H
  112. 0,0                  no marking char, text style = plain
  113. ;                item 2:
  114. "Help with program"          the menu item
  115. 0,0                  no icon, no keybd equivalent
  116. 0,0                  no marking char, text style = plain
  117. ;                item 3:
  118. "How to order"
  119. 0,0                  no icon, no keybd equivalent
  120. 0,0                  no marking char, text style = plain
  121. ;                item 4:
  122. "Help with help boxes"
  123. 0,0                  no icon, no keybd equivalent
  124. 0,0                  no marking char, text style = plain
  125.  
  126. ; Features function menu
  127.  
  128. $$ MENU,304,4            Menu ID 304
  129. 0,0,0                Placeholders
  130. $FFFFFFFF            enable mask - none disabled
  131. "Features"            menu title
  132. 7                seven items in this menu
  133. ;                item 1:
  134. "International"          the menu item
  135. 0,0                  no icon, no keybd equivalent
  136. 0,0                  no marking char, text style = plain
  137. ;                item 2:
  138. "IBM Compatible"          the menu item
  139. 0,0                  no icon, no keybd equivalent
  140. 0,0                  no marking char, text style = plain
  141. ;                item 3:
  142. "Menus and Function Keys"
  143. 0,0                  no icon, no keybd equivalent
  144. 0,0                  no marking char, text style = plain
  145. ;                item 4:
  146. "Dialog and Alert Boxes"
  147. 0,0                  no icon, no keybd equivalent
  148. 0,0                  no marking char, text style = plain
  149. ;                item 5:
  150. "Mouse and Editing"
  151. 0,0                  no icon, no keybd equivalent
  152. 0,0                  no marking char, text style = plain
  153. ;                item 6:
  154. "Large Programs and Data"
  155. 0,0                  no icon, no keybd equivalent
  156. 0,0                  no marking char, text style = plain
  157. ;                item 7:
  158. "Industrial Strength"
  159. 0,0                  no icon, no keybd equivalent
  160. 0,0                  no marking char, text style = plain
  161.  
  162.  
  163.  
  164. ; Help Dialog List
  165.  
  166. $$ DITL,303,32            Dialog item list, ID = 303, ATTR=(32)
  167. 8                8 items in list
  168.  
  169. ;                item 1:
  170. 0                  handle holder
  171. 10,25,30,455              display rectangle
  172. StatText              item type
  173. "Subject for Help Menu item text" ;the item
  174.  
  175. ;                item 2:
  176. 0                  handle holder
  177. 40,25,60,455              display rectangle
  178. StatText              item type
  179. "^0"                  the item
  180.  
  181. ;                item 3:
  182. 0                  handle holder
  183. 60,25,80,455              display rectangle
  184. StatText              item type
  185. "^1"                  the item
  186.  
  187. ;                item 4:
  188. 0                  handle holder
  189. 80,25,100,455              display rectangle
  190. StatText              item type
  191. "^2"                  the item
  192.  
  193. ;                item 5:
  194. 0                  handle holder
  195. 100,25,120,455              display rectangle
  196. StatText              item type
  197. "^3"                  the item
  198.  
  199. ; QUIT must be Item 6 or less
  200. ;                item 6:
  201. 0                  handle holder
  202. 140,360,157,410              display rectangle
  203. button                  item type
  204. "QUIT"                  the item
  205.  
  206. ; NEXT must always be Item 7
  207. ;                item 7:
  208. 0                  handle holder
  209. 140,215,157,265              display rectangle
  210. button                  item type
  211. "NEXT"                  the item
  212.  
  213. ; BACK must always be Item 8
  214. ;                item 8:
  215. 0                  handle holder
  216. 140,70,157,120              display rectangle
  217. button                  item type
  218. "BACK"                  the item
  219.  
  220. ; Order Dialog List
  221.  
  222. $$ DITL,501,32            Dialog item list, ID = 501, ATTR=(32)
  223. 19                19 items in list
  224.  
  225. ;                item 1:
  226. 0                  handle holder
  227. 20,175,40,455              display rectangle
  228. StatText              item type
  229. "PCBASIC by Pterodactyl Software"    ;the item
  230.  
  231. ;                item 2:
  232. 0                  handle holder
  233. 60,125,80,455              display rectangle
  234. editxtds              item type
  235. " "
  236.  
  237. ;                item 3:
  238. 0                  handle holder
  239. 85,125,105,455              display rectangle
  240. editxtds              item type
  241. " "
  242.  
  243. ;                item 4:
  244. 0                  handle holder
  245. 110,125,130,455              display rectangle
  246. editxtds              item type
  247. " "
  248.  
  249. ;                item 5:
  250. 0                  handle holder
  251. 135,125,155,455              display rectangle
  252. editxtds              item type
  253. " "
  254.  
  255. ;                item 6:
  256. 0                  handle holder
  257. 160,125,180,275              display rectangle
  258. editxtds              item type
  259. " "
  260.  
  261. ;                item 7:
  262. 0                  handle holder
  263. 190,25,210,200              display rectangle
  264. chkbox                  item type
  265. "Stand Alone"              the item
  266.  
  267. ;                item 8:
  268. 0                  handle holder
  269. 210,25,230,200              display rectangle
  270. chkbox                  item type
  271. "MPW"              the item
  272.  
  273. ;                item 9:
  274. 0                  handle holder
  275. 190,200,210,450              display rectangle
  276. radio                  item type
  277. "Send me a Manual ($50) "          the item
  278.  
  279. ;                item 10:
  280. 0                  handle holder
  281. 210,200,230,450              display rectangle
  282. radio                  item type
  283. "Send me a trial disk (free)"          the item
  284.  
  285. ;                item 11:
  286. 0                  handle holder
  287. 230,360,247,410              display rectangle
  288. button                  item type
  289. "Print"                  the item
  290.  
  291. ;                item 12:
  292. 0                  handle holder
  293. 230, 215, 247, 265              display rectangle
  294. button                  item type
  295. "Save"                  the item
  296.  
  297. ;                item 13:
  298. 0                  handle holder
  299. 230,70,247,120              display rectangle
  300. button                  item type
  301. "Cancel"                  the item
  302.  
  303. ;                item 14:
  304. 0                  handle holder
  305. 60,25,80,120              display rectangle
  306. StatText              item type
  307. "Name"                  the item
  308.  
  309. ;                item 15:
  310. 0                  handle holder
  311. 85,25,105,120              display rectangle
  312. StatText              item type
  313. "Company"              the item
  314.  
  315. ;                item 16:
  316. 0                  handle holder
  317. 110,25,130,120              display rectangle
  318. StatText              item type
  319. "Street"              the item
  320.  
  321. ;                item 17:
  322. 0                  handle holder
  323. 135,25,155,120              display rectangle
  324. StatText              item type
  325. "City"                  the item
  326.  
  327. ;                item 18:
  328. 0                  handle holder
  329. 160,25,180,120              display rectangle
  330. StatText              item type
  331. "Telephone"              the item
  332.  
  333. ;                item 19:
  334. 0                  handle holder
  335. 12,25,44,57               display rectangle
  336. iconitem              item type
  337. 257                  Resource ID of icon
  338.  
  339. ; Debugger Dialog List
  340.  
  341. $$ DITL,650,32            Dialog item list, ID = 650, ATTR=(32)
  342. 9                9 items in list
  343.  
  344. ;                item 1:
  345. 0                  handle holder
  346. 160,25,177,75              display rectangle
  347. button                  item type
  348. "Step"                  the item
  349.  
  350. ;                item 2:
  351. 0                  handle holder
  352. 160,170,177,220           display rectangle
  353. button                  item type
  354. "G0"                  the item
  355.  
  356. ;                item 3:
  357. 0                  handle holder
  358. 160,315,177,365              display rectangle
  359. button                  item type
  360. "Quit"                  the item
  361.  
  362. ;                item 4:
  363. 0                  handle holder
  364. 20,125,40,455              display rectangle
  365. StatText              item type
  366. "PCBASIC Debugger"
  367.  
  368. ;                item 5:
  369. 0                  handle holder
  370. 120,25,140,190              display rectangle
  371. StatText              item type
  372. "Stop at "
  373.  
  374. ;                item 6:
  375. 0                  handle holder
  376. 120,200,140,340              display rectangle
  377. editxtds                  item type
  378. "0"    ;the item
  379.  
  380. ;                item 7:
  381. 0                  handle holder
  382. 95,25,115,380              display rectangle
  383. StatText              item type
  384. "Line #"    ;the item
  385.  
  386. ;                item 8:
  387. 0                  handle holder
  388. 50,25,70,380              display rectangle
  389. StatText              item type
  390. "a Variable"               ;  the item
  391.  
  392. ;                item 9:
  393. 0                  handle holder
  394. 70,25,90,380              display rectangle
  395. StatText              item type
  396. "a Variable"               ;  the item
  397.  
  398. ;
  399. ; Add more StatText items here if you want to
  400. ;  display more than two variables at a time
  401. ;
  402.  
  403.  
  404.  
  405. ;  Help Dialog Box
  406.  
  407. $$ DLOG,303,32            dialog, ID = 303, ATTR=32
  408. 90,15,260,495            bounds rectangle
  409. 1                type = modal dialog box
  410. visible                initial state
  411. nogoaway            no close box
  412. 0                refcon
  413. 303                resc ID of DLOG's item list
  414. |                no title
  415.  
  416. ;  Order Dialog Box
  417.  
  418. $$ DLOG,501,32            dialog, ID = 501, ATTR=32
  419. 45,15,300,495            bounds rectangle
  420. 1                type = modal dialog box
  421. visible                initial state
  422. nogoaway            no close box
  423. 0                refcon
  424. 501                resc ID of DLOG's item list
  425. |                no title
  426.  
  427. ;  Debugger Dialog Box
  428.  
  429. $$ DLOG,650,32            dialog, ID = 650, ATTR=32
  430. 100,60,280,450            bounds rectangle
  431. 1                type = modal dialog box
  432. visible                initial state
  433. nogoaway            no close box
  434. 0                refcon
  435. 650                resc ID of DLOG's item list
  436. |                no title
  437.  
  438.  
  439. ;  BASIC default Window
  440.  
  441. $$ WIND,300,4            Window, id=300, attr=4
  442. 40,10,325,500
  443. 8                Zoom type window !!!
  444. visible
  445. nogoaway
  446. 0                refcon
  447. PCBASIC Demo            title
  448.  
  449.  
  450. ; Vertical scroll bar for WIND 300
  451.  
  452. $$ CNTL,300
  453. 20,400,220,416
  454. 0            initial value
  455. Invisible            
  456. 12000            max value
  457. 0            min value
  458. 16            scroll bar
  459. 0            refcon
  460. "vertical scroll bar"   ;title
  461.  
  462.  
  463. ; Horizontal scroll bar for WIND 300
  464.  
  465. $$ CNTL,400
  466. 200,20,216,400
  467. 0            initial value
  468. Invisible            
  469. 12000            max value
  470. 0            min value
  471. 16            scroll bar
  472. 0            refcon
  473. "horizontal scroll bar"   ;title
  474.  
  475. ; Cursor
  476. $$ CURS,300,4
  477. $01801A70,$2648264A,$124D1249,$68099801,$88024002,$20022004,$10040808,$04080408
  478. $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  479. $0008,$0008
  480.  
  481. ; Pterodactyl Icon for menu item
  482. $$ ICON,257
  483. $01000000,$00800000,$00400000,$00600000,$00300000,$00380000,$001C0000,$001E0000
  484. $001F0000,$000F8000,$000FD800,$000FD3FC,$000FE0FF,$000FE1C0,$000FF270,$001FF618
  485. $001FFC00,$003FF000,$003FF000,$00FFE000,$01FFE000,$07BFC000,$FC3F8000,$F07F8000
  486. $C07F4000,$00FE6000,$00F80000,$01F00000,$03C00000,$07800000,$3E000000,$F8000000
  487.  
  488. ; Pterodactyl Icon & Mask for Program Icon
  489. $$ ICN#,128
  490. $01000000,$00800000,$00400000,$00600000,$00300000,$00380000,$001C0000,$001E0000
  491. $001F0000,$000F8000,$000FD800,$000FD3FC,$000FE0FF,$000FE1C0,$000FF270,$001FF618
  492. $001FFC00,$003FF000,$003FF000,$00FFE000,$01FFE000,$07BFC000,$FC3F8000,$F07F8000
  493. $C07F4000,$00FE6000,$00F80000,$01F00000,$03C00000,$07800000,$3E000000,$F8000000
  494. $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
  495. $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
  496. $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
  497. $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
  498.  
  499. ; Document Icon and mask for Document Icon
  500. $$ ICN#,129
  501. $01073A26,$0084A369,$0044BAA9,$0064A229,$00373A26,$00380000,$001C0000,$000E0000
  502. $000F0000,$000F8000,$000FD800,$000FD3FC,$000FE0FF,$000FE1C0,$000FF270,$001FF618
  503. $001FFC00,$003FF000,$003FF000,$00FFE000,$01FFE000,$07BFC000,$FC3F8000,$F07F8000
  504. $C07F4000,$00FE6000,$00F80000,$01F00000,$03C00000,$07800000,$3E000000,$F8000000
  505. $07C7FFFF,$07E7FFFF,$07F7FFFF,$03F7FFFF,$01FFFFFF,$00FFFFFF,$00FE0000,$007F0000
  506. $007F8000,$007FFFFE,$007FFFFF,$003FFFFF,$003FFFFF,$003FFFFF,$003FFFFC,$003FFFFE
  507. $007FFFFE,$007FFF00,$00FFFC00,$03FFFC00,$FFFFF800,$FFFFF000,$FFFFE000,$FFFFE000
  508. $F9FFE000,$E1FFF000,$03FFF000,$07FC0000,$0FFC0000,$FFF80000,$FF800000,$FF000000
  509.  
  510.  
  511. ; Help dialog strings
  512. $$ STR#,303,32
  513. 16
  514. ;
  515. ;  panel 1 : Using DEMO...
  516. "Select the items you would like to know about from"
  517. "the FEATURES menu. Use the ORDER menu to add a"
  518. "name to the mailing list file. Examine the"
  519. "BASIC source of this program. It is very short."
  520. ;  panel 2 : Help with program...
  521. "Pterodactyl Software can help you get your application"
  522. "running quickly ! Order our manual for $50. If your"
  523. "staff is too busy, you can hire a Pterodactyl programmer"
  524. "as a consultant at convenient fixed or hourly rates!"
  525. ;  panel 3 : How to order...
  526. "Order the PCBASIC manual from Pterodactyl Software"
  527. "               200 Davey Glen Rd #416"
  528. "               Belmont CA 94002"
  529. "          phone:     (415) 591-5270"
  530. ;  panel 4 : Help with help boxes
  531. "Its easy to create Help boxes like these with PCBASIC."
  532. "First put the subject titles in Menu 303. Then put text"
  533. "for each subject, up to about 1K in String list 303."
  534. "If you don't need Help boxes, just delete Menu 303."
  535.  
  536. ; Text of feature messages. This are used with :
  537. ;   RESTORE # ID%  : READ OneLine$
  538. ;
  539. ; International features
  540.  
  541. $$ STR#,501,32
  542. 18
  543. "    PCBASIC programs can be written for easy"
  544. "translation into foreign languages. The menus, dialogs"
  545. "and titles can all be defined in the resource file. Even"
  546. "text messages, like these, can be put in the resource"
  547. "file as string lists, such as this :"
  548. ""
  549. "   $$ STR#,501,32"
  550. "   2"
  551. "     PCBASIC programs can be written for easy"
  552. "     translation into foreign languages."
  553. ""
  554. "The strings are used in BASIC like DATA statements :"
  555. ""
  556. "          RESTORE #501"
  557. "          READ Msg$1,Msg$2,Msg$3,Msg$4"
  558. "          ? Msg$1 : ? Msg$2 : ? Msg$3 : ? Msg$4"
  559. "
  560. "END"
  561.  
  562. ; IBM compatible
  563.  
  564. $$ STR#,502,32
  565. 14
  566. "    PCBASIC makes converting IBM™ PC programs"
  567. "to Macintosh™ programs simple. PCBASIC is compatible"
  568. "with BASICA, the BASIC used on the IBM™ PC. Special"
  569. "Macintosh features like dialog boxes and windows, can be"
  570. "added in the resource file. Most special IBM functions,"
  571. "translate automatically into Macintosh features. The IBM"
  572. "function keys become menu items. The multiple screen pages"
  573. "available on some adapters, become multiple windows"
  574. "on the Macintosh. The programs can even read back the text"
  575. "written on the screen in PCBASIC, as in BASICA."
  576. ""
  577. "IBM is a trademark of Internation Business Machines Inc."
  578. "Macintosh is a trademark of Apple Computer Inc."
  579. "END"
  580.  
  581. ; Menu & function keys
  582.  
  583. $$ STR#,503,32
  584. 18
  585. "    In PCBASIC, the menus are created from resources."
  586. "Other BASIC implementations use BASIC statements to create"
  587. "every item of every menu. With PCBASIC, the menus are"
  588. "defined with a resource compiler or editor. Of course the"
  589. "program can change any menu item with BASIC statements. The"
  590. "menu items can be enabled, disabled, inhibited, or marked"
  591. "with a check mark or any other character."
  592. ""
  593. "    PCBASIC can compile many programs written for the"
  594. "IBM™ PC or compatibles. Those programs may use the function"
  595. "keys on those machines. BASICA statements such as these,"
  596. ""
  597. "      KEY (1) ON : ON KEY(1) GOSUB 100"
  598. ""
  599. "are compiled without change. The function keys become menu"
  600. "items. They can be grouped into any number of menus, which"
  601. "can be arranged in any order on the menu bar."
  602. "END"
  603.  
  604. ; Dialogs & Alerts
  605.  
  606. $$ STR#,504,32
  607. 19
  608. "    Dialogs and alert boxes are easy to create with"
  609. "PCBASIC. One BASIC statement will show the operator"
  610. "a Modal Dialog or an Alert, wait for the operator to make"
  611. "a selection or edit text, and return when the operator"
  612. "pushes a button. It is as simple as this:"
  613. ""
  614. "      REM Display alert box 500 as a Stop Alert."
  615. "      REM The number of the button the operator"
  616. "      REM pressed will be in CHOICE%."
  617. "      100 CHOICE%=ERROR(501,STOP)"
  618. ""
  619. "      REM Display dialog 500. Wait for a reply."
  620. "      REM The button number will be in CHOICE%."
  621. "      CHOICE%=DIALOG#500"
  622. ""
  623. "      REM Remove the box. The blank spot on the window"
  624. "      REM will be drawn again, automatically"
  625. "        CLOSE#500"
  626. "END"
  627.  
  628. ; Mouse, fonts and editing
  629.  
  630. $$ STR#,505,32
  631. 20
  632. "   PCBASIC handles the mouse activity for the system, menus,"
  633. "dialog boxes and scroll bars. The BASIC programmer only has"
  634. "to take care of clicks within the main windows. PCBASIC can"
  635. "even vector to a line number as soon as the mouse is clicked"
  636. "in the active window."
  637. " "
  638. "    The special Edit menu simplifies editing. It takes care of"
  639. "'Cut', 'Copy' and 'Paste' for your dialog boxes automatically."
  640. "But you can handle the Edit menu selections for the active"
  641. "window yourself. The Edit menu can vector to a BASIC line, or"
  642. "you can poll for menu selections whenever you are ready."
  643. " "
  644. "    PCBASIC has powerful mouse sensing commands, to make your"
  645. "job still easier. Your BASIC program can detect a single click"
  646. "or a multiple click with one MOUSE function call. Other calls"
  647. "return the starting, ending and current locations of the mouse."
  648. "The functions can return either graphic coordinates or the line"
  649. "and column location for editing text! That makes highlighting"
  650. "selected text simple, even when using a proportional font."
  651. "END"
  652.  
  653. ; Large programs and segmentation
  654.  
  655. $$ STR#,506,32
  656. 17
  657. "    PCBASIC compiles large programs and systems containing"
  658. "many programs. You can divide large programs into segments"
  659. "with one simple command. These segments will be read in from"
  660. "the disk when they are needed. They will be discarded when"
  661. "memory space is short. This happens automatically, without"
  662. "any effort by the BASIC programmer."
  663. ""
  664. "    Many small programs can be compiled together as a package."
  665. "These programs can all be in memory at the same time. When one"
  666. "program calls another program in the package, the code will not"
  667. "have to be read from the disk."
  668. ""
  669. "    Programs with large data spaces are handled easily too."
  670. "Arrays are dynamic. They can be erased and created again, with a"
  671. "different size, while the program is running. Large arrays are"
  672. "relocatable blocks. The move around in memory to reuse space."
  673. "END"
  674.  
  675. ; Industrial strength
  676.  
  677. $$ STR#,507,32
  678. 12
  679. "    PCBASIC is an 'Industrial Strength' programming language."
  680. "This means all the features of the Macintosh are accessible from"
  681. "PCBASIC. The important features, such as dialogs, windows,"
  682. "scroll bars, menus,  and alert boxes are all part of the extended"
  683. "BASIC language. All of the other features in the ROM and Operating"
  684. "System, can be called from BASIC. Special BASIC statements can"
  685. "access any of the ToolBox and QuickDraw routines. Even register"
  686. "based calls, and calls that return function values can be used."
  687. "Pascal or Assembler code can be linked to PCBASIC programs,"
  688. "or short segments of 68000 Assembly language can actually be "
  689. "imbedded within the BASIC code."
  690. "END"
  691.  
  692. ; Introduction
  693.  
  694. $$ STR#,508,32
  695. 17
  696. " PCBASIC is a BASIC compiler from Pterodactyl Software."
  697. "  "
  698. " There are two versions on the shareware disk:"
  699. "  "
  700. "   PCBASIC MPW is a 'tool' which runs under MPW."
  701. "   PCBASIC STA is a standalone compiler."
  702. "  "
  703. " This program demonstrates a few of PCBASIC's features."
  704. "  "
  705. "    To get your copy of PCBASIC contact "
  706. " "
  707. "          Harland Harrison   "
  708. "          Pterodactyl Software    "
  709. "          200 Davey Glen Rd #416  "
  710. "          Belmont CA  94002       "
  711. "           (415) 591-5270         "
  712. "END"
  713.  
  714. ; Runtime Configuration
  715.  
  716. [[ CFIG,301
  717. ;  .I
  718. ; SCREEN buffer & Update method
  719. ;       2 = Text buffer with attributes
  720. ;       6 = Text buffer without attributes
  721. ;      10 = Text buffer exists but don't use for automatic update
  722. ;      14 = Text buffer without attributes but don't update
  723.     DC.W    2
  724. ; String Space growth rate
  725.     DC.W    4096
  726. ; File Buffer Space
  727.     DC.W    4096
  728. ; Document Width
  729.     DC.W    640
  730. ; Document Height
  731.     DC.W    400
  732. ; Border Width
  733.     DC.W    40
  734. ; Border Height
  735.     DC.W    30
  736. ; Horiz Point Scale * 16
  737.     DC.W    16
  738. ; Vert Point Scale * 16
  739.     DC.W    16
  740. ; Aspect *16
  741.     DC.W    16
  742. ; Default font
  743.     DC.W    0
  744. ; Default font size
  745.     DC.W    12
  746. ; Character cell Height
  747.     DC.W    12
  748. ; Character cell Width
  749.     DC.W    -1
  750. ]]
  751.  
  752.  
  753. ; File reference for program
  754.  
  755. $$ FREF,128            FREF resc, ID = 128
  756. APPL                filetype
  757. 0                local ID for icon list
  758. |                no filename follows the application
  759.  
  760. ; File reference for document
  761.  
  762. $$ FREF,129            FREF resc, ID = 129
  763. TEXT                filetype
  764. 1                local ID for icon list
  765. |                no filename follows the application
  766.  
  767. ; Bundle
  768.  
  769. $$ BNDL,128            bundle resc, ID = 128
  770. DEMO                the application's signature again
  771. 0                ID is again 0 by convention
  772. 2                two resc types in the BNDL list:
  773. ICN#,2                map one icon list:
  774. 0,128                local ID 0 -> actual ID 128
  775. 1,129
  776. FREF,2                map one FREF list:
  777. 0,128                local ID 0 -> actual ID 128
  778. 1,129
  779.  
  780.  
  781.  
  782.